object Data: TData
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 569
  Width = 393
  object ADOConnection: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\Pr' +
      'ogramm\NetVul\Realise\Server\Base.mdb;Mode=ReadWrite;Persist Sec' +
      'urity Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry' +
      ' Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;' +
      'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk ' +
      'Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Databas' +
      'e Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:E' +
      'ncrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=Fal' +
      'se;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=' +
      'False'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 292
    Top = 20
  end
  object SQLCommand: TADOCommand
    Connection = ADOConnection
    Parameters = <
      item
        Name = 'pSSS'
        DataType = ftBlob
        Size = -1
        Value = Null
      end
      item
        Name = 'pSS'
        DataType = ftBlob
        Size = -1
        Value = Null
      end
      item
        Name = 'pENT'
        DataType = ftBlob
        Size = -1
        Value = Null
      end
      item
        Name = 'pRetina'
        DataType = ftBlob
        Size = -1
        Value = Null
      end
      item
        Name = 'pXspider'
        DataType = ftBlob
        Size = -1
        Value = Null
      end
      item
        Name = 'pLANguard'
        DataType = ftBlob
        Size = -1
        Value = Null
      end
      item
        Name = 'pZenamp'
        DataType = ftBlob
        Size = -1
        Value = Null
      end
      item
        Name = 'pDateTime'
        DataType = ftString
        Size = -1
        Value = Null
      end
      item
        Name = 'bSSS'
        DataType = ftBoolean
        Value = False
      end
      item
        Name = 'bSS'
        DataType = ftBoolean
        Value = False
      end
      item
        Name = 'bENT'
        DataType = ftBoolean
        Value = False
      end
      item
        Name = 'bRetina'
        DataType = ftBoolean
        Value = False
      end
      item
        Name = 'bXSpiser'
        DataType = ftBoolean
        Value = False
      end
      item
        Name = 'bLanguard'
        DataType = ftBoolean
        Value = False
      end
      item
        Name = 'bZenamp'
        DataType = ftBoolean
        Value = False
      end
      item
        Name = 'pXS_OS'
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = 'pZM_OS'
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = 'pSSS_OS'
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = 'pRT_OS'
        DataType = ftString
        Size = 4
        Value = Null
      end
      item
        Name = 'pLG_OS'
        Size = -1
        Value = Null
      end
      item
        Name = 'pXS_Vul1'
        DataType = ftInteger
        Size = -1
        Value = Null
      end
      item
        Name = 'pXS_Vul2'
        DataType = ftInteger
        Size = -1
        Value = Null
      end
      item
        Name = 'pXS_Vul3'
        DataType = ftInteger
        Size = -1
        Value = Null
      end
      item
        Name = 'pXS_Vul4'
        DataType = ftInteger
        Size = -1
        Value = Null
      end
      item
        Name = 'pRT_des'
        DataType = ftMemo
        Size = -1
        Value = Null
      end
      item
        Name = 'pRT_rec'
        DataType = ftMemo
        Size = -1
        Value = Null
      end
      item
        Name = 'pRT_link'
        DataType = ftMemo
        Size = -1
        Value = Null
      end
      item
        Name = 'pRT_cve'
        DataType = ftMemo
        Size = -1
        Value = Null
      end
      item
        Name = 'pRT_bug'
        DataType = ftMemo
        Size = -1
        Value = Null
      end
      item
        Name = 'pLG_INT'
        Size = -1
        Value = Null
      end
      item
        Name = 'pLG_vul'
        DataType = ftMemo
        Size = -1
        Value = Null
      end>
    Left = 120
    Top = 16
  end
  object Query_Client: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  *'
      'FROM clients')
    Left = 24
    Top = 120
  end
  object Source_Client: TDataSource
    DataSet = Query_Client
    Left = 24
    Top = 176
  end
  object Query_Report: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  *'
      'FROM reportsall')
    Left = 120
    Top = 120
  end
  object Source_Report: TDataSource
    DataSet = Query_Report
    Left = 120
    Top = 176
  end
  object Query_Pars: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    AfterScroll = Query_ParsAfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT  *'
      'FROM Reports_Pars_All')
    Left = 208
    Top = 120
  end
  object Source_Pars: TDataSource
    DataSet = Query_Pars
    Left = 208
    Top = 176
  end
  object Query_Ports_NT: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM nt_ports'
      'WHERE key_reports=:key')
    Left = 32
    Top = 240
  end
  object Source_Ports_NT: TDataSource
    DataSet = Query_Ports_NT
    Left = 32
    Top = 288
  end
  object Source_Ports_lg: TDataSource
    DataSet = Query_Ports_lg
    Left = 72
    Top = 288
  end
  object Query_Ports_lg: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM lg_ports'
      'WHERE key_reports=:key')
    Left = 72
    Top = 240
  end
  object Source_Ports_xs: TDataSource
    DataSet = Query_Ports_xs
    Left = 104
    Top = 288
  end
  object Query_Ports_xs: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM xs_ports'
      'WHERE key_reports=:key')
    Left = 104
    Top = 240
  end
  object Source_Ports_ss: TDataSource
    DataSet = Query_Ports_ss
    Left = 136
    Top = 288
  end
  object Query_Ports_ss: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM ss_ports'
      'WHERE key_reports=:key')
    Left = 136
    Top = 240
  end
  object Source_Ports_zm: TDataSource
    DataSet = Query_Ports_zm
    Left = 168
    Top = 288
  end
  object Query_Ports_zm: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM zm_ports'
      'WHERE key_reports=:key')
    Left = 168
    Top = 240
  end
  object Source_Ports_rt: TDataSource
    DataSet = Query_Ports_rt
    Left = 200
    Top = 288
  end
  object Query_Ports_rt: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM rt_ports'
      'WHERE key_reports=:key')
    Left = 200
    Top = 240
  end
  object Source_Ports_sss: TDataSource
    DataSet = Query_Ports_sss
    Left = 232
    Top = 288
  end
  object Query_Ports_sss: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM sss_ports'
      'WHERE key_reports=:key')
    Left = 232
    Top = 240
  end
  object Query_Res_LG: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM lg_res'
      'WHERE key_reports=:key')
    Left = 32
    Top = 344
  end
  object Source_Res_lg: TDataSource
    DataSet = Query_Res_LG
    Left = 32
    Top = 392
  end
  object Query_Res_XS: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM xs_res'
      'WHERE key_reports=:key')
    Left = 72
    Top = 344
  end
  object Source_Res_xs: TDataSource
    DataSet = Query_Res_XS
    Left = 72
    Top = 392
  end
  object Query_Res_SSS: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM sss_res'
      'WHERE key_reports=:key')
    Left = 112
    Top = 344
  end
  object Source_Res_sss: TDataSource
    DataSet = Query_Res_SSS
    Left = 112
    Top = 392
  end
  object Query_Res_RT: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM rt_res'
      'WHERE key_reports=:key')
    Left = 152
    Top = 344
  end
  object Source_Res_rt: TDataSource
    DataSet = Query_Res_RT
    Left = 152
    Top = 392
  end
  object Query_Vul_RT: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM rt_vul'
      'WHERE key_reports=:key')
    Left = 32
    Top = 456
  end
  object Source_Vul_RT: TDataSource
    DataSet = Query_Vul_RT
    Left = 32
    Top = 504
  end
  object Query_Vul_LG: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM lg_vul'
      'WHERE key_reports=:key')
    Left = 104
    Top = 456
  end
  object Source_Vul_LG: TDataSource
    DataSet = Query_Vul_LG
    Left = 104
    Top = 504
  end
  object Query_SP_LG: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'key'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM lg_sp'
      'WHERE key_reports=:key')
    Left = 144
    Top = 456
  end
  object Source_SP_LG: TDataSource
    DataSet = Query_SP_LG
    Left = 144
    Top = 504
  end
  object Query_tcp: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    OnCalcFields = Query_tcpCalcFields
    Parameters = <
      item
        Name = 'akey'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM Count_ports_tcp')
    Left = 216
    Top = 456
    object Query_tcppr: TIntegerField
      FieldName = 'pr'
    end
    object Query_tcpver: TIntegerField
      FieldName = 'ver'
    end
    object Query_tcpver2: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'ver2'
      Calculated = True
    end
  end
  object Source_tcp: TDataSource
    DataSet = Query_tcp
    Left = 216
    Top = 504
  end
  object Query_udp: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection
    CursorType = ctStatic
    OnCalcFields = Query_udpCalcFields
    Parameters = <
      item
        Name = 'akey'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT  *'
      'FROM Count_ports_udp')
    Left = 248
    Top = 456
    object Query_udppr: TIntegerField
      FieldName = 'pr'
    end
    object Query_udpver: TIntegerField
      FieldName = 'ver'
    end
    object Query_udpver2: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'ver2'
      Calculated = True
    end
  end
  object Source_udp: TDataSource
    DataSet = Query_udp
    Left = 248
    Top = 504
  end
  object MemTableEh1: TMemTableEh
    Params = <>
    DataDriver = SQLDataDriverEh1
    Left = 320
    Top = 88
  end
  object SQLDataDriverEh1: TSQLDataDriverEh
    DeleteCommand.Params = <>
    DynaSQLParams.Options = []
    GetrecCommand.Params = <>
    InsertCommand.Params = <>
    SelectCommand.Params = <>
    UpdateCommand.Params = <>
    ProviderDataSet = Query_Pars
    Left = 288
    Top = 88
  end
end
